home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / aed244a.zip / UPGRADE4.BAT < prev    next >
DOS Batch File  |  1991-02-16  |  8KB  |  329 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.3x with .MRGs using QB4.5
  4.  
  5. if %1?==? goto Usage
  6. if %1==Y goto RBBSTest
  7. if %1==y goto RBBSTest
  8. if %1==N goto End
  9. if %1==n goto End
  10.  
  11. :Start
  12.  
  13. if not exist C:\QB45\BLED.EXE goto NoBLED
  14. if not exist ANSIED.BAS goto CBled0
  15. if not exist VARMOD.EXE goto NoVARMOD
  16.  
  17. :CBled0
  18.  
  19. if not exist CVAR%1.BAS goto CBled1
  20. if exist CNFG-VAR.BAS del CNFG-VAR.BAS
  21. ren CVAR%1.BAS CNFG-VAR.BAS
  22.  
  23. :CBled1
  24.  
  25. if not exist CONFIG.BAS goto CBled2
  26. if not exist CNFG%1.MRG goto CBled2
  27. C:\QB45\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  28. del CONFIG.BAS
  29. del CNFG%1.MRG
  30. ren CNFG%1.BAS CONFIG.BAS
  31.  
  32. :CBled2
  33.  
  34. if not exist CNFG-SUB.BAS goto RBled0
  35. if not exist CSUB%1.MRG goto RBled0
  36. C:\QB45\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  37. del CNFG-SUB.BAS
  38. del CSUB%1.MRG
  39. ren CSUB%1.BAS CNFG-SUB.BAS
  40.  
  41. :RBled0
  42.  
  43. if not exist RVAR%1.BAS goto RBled1
  44. if exist RBBS-VAR.BAS del RBBS-VAR.BAS
  45. ren RVAR%1.BAS RBBS-VAR.BAS
  46.  
  47. :RBled1
  48.  
  49. if not exist RBBS-PC.BAS goto RBled2
  50. if not exist R-PC%1.MRG goto RBled2
  51. C:\QB45\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  52. del RBBS-PC.BAS
  53. del R-PC%1.MRG
  54. ren R-PC%1.BAS RBBS-PC.BAS
  55.  
  56. :RBled2
  57.  
  58. if not exist RBBSSUB1.BAS goto RBled3
  59. if not exist RSB1%1.MRG goto RBled3
  60. C:\QB45\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  61. del RBBSSUB1.BAS
  62. del RSB1%1.MRG
  63. ren RSB1%1.BAS RBBSSUB1.BAS
  64.  
  65. :RBled3
  66.  
  67. if not exist RBBSSUB2.BAS goto RBled4
  68. if not exist RSB2%1.MRG goto RBled4
  69. C:\QB45\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  70. del RBBSSUB2.BAS
  71. del RSB2%1.MRG
  72. ren RSB2%1.BAS RBBSSUB2.BAS
  73.  
  74. :RBled4
  75.  
  76. if not exist RBBSSUB3.BAS goto RBled5
  77. if not exist RSB3%1.MRG goto RBled5
  78. C:\QB45\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  79. del RBBSSUB3.BAS
  80. del RSB3%1.MRG
  81. ren RSB3%1.BAS RBBSSUB3.BAS
  82.  
  83. :RBled5
  84.  
  85. if not exist RBBSSUB4.BAS goto RBled6
  86. if not exist RSB4%1.MRG goto RBled6
  87. C:\QB45\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  88. del RBBSSUB4.BAS
  89. del RSB4%1.MRG
  90. ren RSB4%1.BAS RBBSSUB4.BAS
  91.  
  92. :RBled6
  93.  
  94. if not exist RBBSSUB5.BAS goto ABled1
  95. if not exist RSB5%1.MRG goto ABled1
  96. C:\QB45\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  97. del RBBSSUB5.BAS
  98. del RSB5%1.MRG
  99. ren RSB5%1.BAS RBBSSUB5.BAS
  100.  
  101. :ABled1
  102.  
  103. if not exist ANSIED.BAS goto ArgTest
  104. VARMOD %1
  105. if not exist AED4%1.MRG goto ArgTest
  106. C:\QB45\BLED /B/L ANSIED.BAS AED4%1.MRG AED4%1.BAS
  107. del ANSIED.BAS
  108. del AED4%1.MRG
  109. ren AED4%1.BAS ANSIED.BAS
  110.  
  111. :ArgTest
  112.  
  113. shift
  114. if %1?==? goto End
  115. if %1==Y goto RBBSTest
  116. if %1==y goto RBBSTest
  117. if %1==N goto End
  118. if %1==n goto End
  119. goto CBled0
  120.  
  121. :RBBSTest
  122.  
  123. if not exist RBBS-PC.BAS goto NoPC
  124. if not exist RBBSSUB1.BAS goto NoSUB1
  125. if not exist RBBSSUB2.BAS goto NoSUB2
  126. if not exist RBBSSUB3.BAS goto NoSUB3
  127. if not exist RBBSSUB4.BAS goto NoSUB4
  128. if not exist RBBSSUB5.BAS goto NoSUB5
  129. if not exist RBBS-VAR.BAS goto NoRVAR
  130.  
  131. if not exist C:\QB45\BC.EXE goto NoQB
  132. if not exist C:\QB45\LIB\BCOM45.LIB goto NoBCOM
  133. REM if not exist C:\QB45\LINK.EXE goto NoLINK
  134. if not exist 10-NET.OBJ goto No10
  135. if not exist ANSI17.OBJ goto NoANSI
  136. if not exist BDRIVEC2.OBJ goto NoBD
  137. if not exist FOSSCOMM.OBJ goto NoFOSS
  138. if not exist GIVEBK31.OBJ goto NoGIVE
  139. if not exist PC-NET.OBJ goto NoPCNET
  140. if not exist QBARCV6.OBJ goto NoQBARCV
  141. if not exist RBBSDV.OBJ goto NoDV
  142. if not exist RBBSML.OBJ goto NoML
  143. if not exist RBBSUTIL.OBJ goto NoUTIL
  144. if not exist XMODEM.OBJ goto NoXMOD
  145. if not exist RBBSHS.OBJ goto NoHS
  146. if not exist BASNOV.OBJ goto NoNOV
  147.  
  148. :ATest
  149.  
  150. if not exist ANSIED.BAS goto RCompile
  151. if not exist MOVCSTR.OBJ goto NoMOVC
  152. if not exist FINDWORD.OBJ goto NoFIND
  153.  
  154. :RCompile
  155.  
  156. echo Compiling RBBS-PC.BAS...
  157. C:\QB45\BC RBBS-PC.BAS,RBBS-PC,NUL,/O/C:4096/S/E/MBF;
  158. echo Compiling RBBSSUB1.BAS...
  159. C:\QB45\BC RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O/MBF;
  160. echo Compiling RBBSSUB2.BAS...
  161. C:\QB45\BC RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E/MBF;
  162. echo Compiling RBBSSUB3.BAS...
  163. C:\QB45\BC RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E/MBF;
  164. echo Compiling RBBSSUB4.BAS...
  165. C:\QB45\BC RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E/MBF;
  166. echo Compiling RBBSSUB5.BAS...
  167. C:\QB45\BC RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E/MBF;
  168. if not exist ANSIED.BAS goto DoLink
  169. echo Compiling ANSIED.BAS...
  170. C:\QB45\BC ANSIED.BAS,ANSIED,NUL,/X/O/C:4096/E/MBF;
  171.  
  172. :DoLink
  173.  
  174. if exist LINK4.DAT del LINK4.DAT
  175.  
  176. echo RBBS-PC+  >> LINK4.DAT
  177. echo RBBSSUB1+ >> LINK4.DAT
  178. echo RBBSSUB2+ >> LINK4.DAT
  179. echo RBBSSUB3+ >> LINK4.DAT
  180. echo RBBSSUB4+ >> LINK4.DAT
  181. echo RBBSSUB5+ >> LINK4.DAT
  182. if exist ANSIED.BAS echo ANSIED+   >> LINK4.DAT
  183. if exist ANSIED.BAS echo MOVCSTR+  >> LINK4.DAT
  184. if exist ANSIED.BAS echo FINDWORD+ >> LINK4.DAT
  185. echo QBARCV6+  >> LINK4.DAT
  186. echo ANSI17+   >> LINK4.DAT
  187. echo XMODEM+   >> LINK4.DAT
  188. echo RBBSML+   >> LINK4.DAT
  189. echo BDRIVEC2+ >> LINK4.DAT
  190. echo PC-NET+   >> LINK4.DAT
  191. echo 10-NET+   >> LINK4.DAT
  192. echo RBBSUTIL+ >> LINK4.DAT
  193. echo RBBSDV+   >> LINK4.DAT
  194. echo GIVEBK31+ >> LINK4.DAT
  195. echo RBBSHS+   >> LINK4.DAT
  196. echo BASNOV+   >> LINK4.DAT
  197. echo FOSSCOMM, >> LINK4.DAT
  198. echo RBBS-PC,  >> LINK4.DAT
  199. echo NUL,      >> LINK4.DAT
  200. echo C:\QB45\LIB\BCOM45.LIB /STACK:2048 /EXEPACK >> LINK4.DAT
  201.  
  202. LINK @LINK4.DAT
  203.  
  204. :CCompile
  205.  
  206. if not exist CONFIG.BAS goto End
  207. if not exist CNFG-SUB.BAS goto NoCSUB
  208. if not exist CNFG-VAR.BAS goto NoCVAR
  209.  
  210. echo Compiling CONFIG.BAS...
  211. C:\QB45\BC CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S/MBF;
  212. echo Compiling CNFG-SUB.BAS...
  213. C:\QB45\BC CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S/MBF;
  214. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,C:\QB45\LIB\BCOM45.LIB/EXEPACK;
  215.  
  216. goto End
  217.  
  218. :NoQB
  219. echo Missing C:\QB45\BC.EXE... Aborted.
  220. goto End
  221. :NoLINK
  222. echo Missing C:\QB45\LINK.EXE... Aborted.
  223. goto End
  224. :NoBLED
  225. echo Missing C:\QB45\BLED.EXE... Aborted.
  226. goto End
  227. :No10
  228. echo Missing 10-NET.OBJ... Aborted.
  229. goto End
  230. :NoANSI
  231. echo Missing ANSI17.OBJ... Aborted.
  232. goto End
  233. :NoBD
  234. echo Missing BDRIVEC2.OBJ... Aborted.
  235. goto End
  236. :NoFOSS
  237. echo Missing FOSSCOMM.OBJ... Aborted.
  238. goto End
  239. :NoGIVE
  240. echo Missing GIVEBK31.OBJ... Aborted.
  241. goto End
  242. :NoPCNET
  243. echo Missing PC-NET.OBJ... Aborted.
  244. goto End
  245. :NoQBARCV
  246. echo Missing QBARCV6.OBJ... Aborted.
  247. goto End
  248. :NoDV
  249. echo Missing RBBSDV.OBJ... Aborted.
  250. goto End
  251. :NoML
  252. echo Missing RBBSML.OBJ... Aborted.
  253. goto End
  254. :NoUTIL
  255. echo Missing RBBSUTIL.OBJ... Aborted.
  256. goto End
  257. :NoXMOD
  258. echo Missing XMODEM.OBJ... Aborted.
  259. goto End
  260. :NoHS
  261. echo Missing RBBSHS.OBJ... Aborted.
  262. goto End
  263. :NoNOV
  264. echo Missing BASNOV.OBJ... Aborted.
  265. goto End
  266. :NoMOVC
  267. echo Missing MOVCSTR.OBJ (for ANSIED.BAS)... Aborted.
  268. goto End
  269. :NoFIND
  270. echo Missing FINDWORD.OBJ (for ANSIED.BAS)... Aborted.
  271. goto End
  272. :NoPC
  273. echo Missing RBBS-PC.BAS... Aborted.
  274. goto End
  275. :NoSUB1
  276. echo Missing RBBSSUB1.BAS... Aborted.
  277. goto End
  278. :NoSUB2
  279. echo Missing RBBSSUB2.BAS... Aborted.
  280. goto End
  281. :NoSUB3
  282. echo Missing RBBSSUB3.BAS... Aborted.
  283. goto End
  284. :NoSUB4
  285. echo Missing RBBSSUB4.BAS... Aborted.
  286. goto End
  287. :NoSUB5
  288. echo Missing RBBSSUB5.BAS... Aborted.
  289. goto End
  290. :NoRVAR
  291. echo Missing RBBS-VAR.BAS... Aborted.
  292. goto End
  293. :NoCNFG
  294. echo Missing CONFIG.BAS... Aborted.
  295. goto End
  296. :NoCSUB
  297. echo Missing CNFG-SUB.BAS... Aborted.
  298. goto End
  299. :NoCVAR
  300. echo Missing CNFG-VAR.BAS... Aborted.
  301. goto End
  302. :NoBCOM
  303. echo Missing C:\QB45\LIB\BCOM45.LIB... Aborted.
  304. goto End
  305. :NoVARMOD
  306. echo Missing VARMOD.EXE (for ANSIED.BAS)... Aborted.
  307. goto End
  308.  
  309. :Usage
  310. echo Usage: UPGRADE xxxx zzzz [Y][N]
  311. echo .
  312. echo        where xxxx and zzzz are the upgrade thingies to add to
  313. echo        the end of the MRG filenames.  Add the Y switch if you
  314. echo        want to compile the upgraded files, or N to skip the compile.
  315. echo .
  316. echo        If ANSIED.BAS exists, it will be compiled and linked into
  317. echo        the final RBBS-PC.EXE.  If not, not.
  318. echo .
  319. echo        If the CONFIG files exist, they'll also be upgraded with any
  320. echo        applicable merges.  If not, not.
  321. echo .
  322. echo        You can include as many merges as you like on the command
  323. echo        line.
  324. echo .
  325. echo    Ex: UPGRADE UGLY EDIT Y to add the UGLY and EDIT merges & compile
  326. goto End
  327.  
  328. :End
  329.